Site.asp AspFaq在线帮助系统 V1.0 - ASP源码程序

www.gusucode.com > AspFaq在线帮助系统 V1.0 > AspFaq在线帮助系统 V1.0\code\admin\Site.asp
    <!--#include file="Include.asp"--><%
if request.Form.count>0 then
  Site_Name=HTMLEncode(trim(request.Form("Site_Name")))
  Site_Url=HTMLEncode(trim(request.Form("Site_Url")))
  Site_Dir=HTMLEncode(trim(request.Form("Site_Dir")))
  Site_Open=clng(request.Form("Site_Open"))
  Site_Type=clng(request.Form("Site_Type"))
  call CheckString(Site_Name,255,1,"请输入站点名称！","站点名称过长，请小于255个字符！")
  call CheckString(Site_Url,255,1,"请输入站点链接！","站点链接过长，请小于255个字符！")
  if i=1 then
    call pagend()
    response.End()
  end if
  sqlstr="select * from [Site]"
  rs.open sqlstr,conn,1,3
  if rs.eof then
    application.Lock()
	rs.addnew()
	rs("Site_Name")=Site_Name
	rs("Site_Url")=Site_Url
	rs("Site_Open")=Site_Open
	rs("Site_Dir")=Site_Dir
	rs("Site_Type")=Site_Type
	rs.update()
	application.UnLock()
  else
    application.Lock()
	rs("Site_Name")=Site_Name
	rs("Site_Url")=Site_Url
	rs("Site_Open")=Site_Open
	rs("Site_Dir")=Site_Dir
	rs("Site_Type")=Site_Type
	rs.update()
	application.UnLock()
  end if
  rs.close
  response.Write("修改成功！")
  response.End()
end if
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>系统配置--<%=Site_Name%></title>
<link rel="stylesheet" href="Images/Style.css" type="text/css" media="all" />
<script language="javascript" src="../Js/Jquery.js"></script>
<script language="javascript" src="../Js/Form.js"></script>
<script language="javascript" src="../Js/Function.js"></script>
<script language="javascript">
function SiteSet(){
	Form_Send1("Site.asp","系统设置成功！","Site.asp?Menu=2&Menu2=1","Sets");
}
</script>
</head>

<body>
<div id="wrap">
<!--#Include file="Head.asp"-->
  <div id="main">
    <h2><span>系统配置</span></h2>
    <div id="bcmscontent">
      <form name="Sets" method="post" action="Site.asp" id="Sets" onsubmit="return false;"> 
        <ul class="post">
          <li>站点名称：<input name="Site_Name" value="<%=Site_Name%>" type="text" id="Site_Name" style="width:250px" />
          </li>
          <li>站点链接：<input name="Site_Url" value="<%=Site_Url%>" type="text" id="Site_Url" style="width:250px" />
          </li>
          <li>站点路径：<input name="Site_Dir" value="<%=split(Lcase(Request.ServerVariables("url")),"admin")(0)%>" type="text" id="Site_Dir" style="width:250px" />
          </li>
          <li>站点开关：<input name="Site_Open" type="radio" value="0"<%=Check_Checked(Site_Open,0)%> />
          开放
            <input name="Site_Open" type="radio" value="1"<%=Check_Checked(Site_Open,1)%> />
            关闭          </li>
          <li>站点模式：
            <label>
            <select name="Site_Type" id="Site_Type">
              <option value="0"<%=Check_Selected(Site_Type,0)%>>ASP模式</option>
              <option value="1"<%=Check_Selected(Site_Type,1)%>>HTML模式</option>
            </select>
            HTML模式需要生成，进入<a href="Html.asp?Menu=3&Menu2=3">生成页面</a></label>
          </li>
          <li><input type="submit" onclick="SiteSet()" class="bt2" value="确 认"/></li>
      </ul>
    </form>
  </div>
</div>
<!--#Include file="Foot.asp"-->
<!--#Include file="Show_Go.asp"-->
</div>
</body>
</html>